home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Hardware Guide 1994 / Macworld Interactive - Hardware Guide 1994 (PDO).iso / Demos / Aldus® SuperPaint / Aldus SuperPaint 3.0 Trial Size / Aldus SuperPaint 3.0 Trial Size.rsrc / TEXT_254.txt < prev    next >
Text File  |  1993-03-24  |  7KB  |  82 lines
  1. % BeachHead - v1 Copyright 1991 Silicon Beach Software, inc.
  2. userdict begin/BeachHead 100 dict def BeachHead end begin
  3. /BeachHead_version 1 def/c 75 string def/oldmatrix 6 array def/newmatrix 6 array def/a{bind def}bind def/b{exch def}a
  4. /_doTexturePat false def/nulld{counttomark{null def}repeat pop}a mark/l/m/o/q/r/u/v/w/x/y/z/A
  5. /B/D/E/F/G/H/I/J/K/M/N/O/P/Q/R/S/T/V/W/X/Y/ba/ca/da/ea/fa/ga/ha/ia/ja/ka/la/ma/_strtxtmatrix nulld
  6. /d{0 1 74{c exch 0 put}for dup c cvs pop c}a/e{d 74 1 put}a/f{d 74 2 put}a/g{d 73 1 put}a
  7. /h{d 72 1 put}a/i{d 71 1 put}a/j{1 currentrgbcolor 1 index eq 3 1 roll eq and{currentgray sub}if setgray}a
  8. /k{/FontInfo 2 dict def FontInfo /FullName c dup length string copy put FontInfo/UnderlinePosition
  9. 100 l/FontInfo known{l/FontInfo get/UnderlinePosition known{pop l/FontInfo get/UnderlinePosition get
  10. }if}if put/m 1 string def/FontBBox[0 0 1 1]def/FontType 3 def/Encoding l/Encoding get def}a
  11. /n{/o 13 dict def o begin/l b k/_isSBShadowFont l/_isSBShadowFont known{l/_isSBShadowFont get}
  12. {false}ifelse def/BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth setcharwidth
  13. 0 0 moveto m show end}def}a/p{/o 16 dict def o begin/q b/r b/l b/FontMatrix[1 0 0 1 0 0]def k}a/s{exch begin m 0 3 -1 roll put
  14. l setfont m stringwidth FontMatrix 0 get dup 20 le{pop 1 index 0 ne{exch q add exch}if
  15. }{40 le{1 index 0 ne{exch q 2 div add exch}if}if}ifelse setcharwidth 0 0 moveto gsave}a
  16. /t{dup length 1 add dict/o b dup{1 index/FID ne 2 index/UniqueID ne and{o 3 1 roll put}
  17. {pop pop}ifelse}forall o begin/PaintType 2 def/StrokeWidth 12 def end/_ o definefont}a
  18. /findoutlinefont{userdict/BeachHead get begin e FontDirectory c known{pop c findfont}
  19. {findfont t .02 p/_isSBShadowFont false def/BuildChar{userdict/BeachHead get begin s j
  20. m show grestore gsave r setfont m show grestore end    end}def end c o definefont}ifelse end}a
  21. /findshadowfont{userdict/BeachHead get begin f FontDirectory c known{pop c findfont}{findfont
  22. t .05 p/_isSBShadowFont true def/BuildChar{userdict/BeachHead get begin s q dup neg rmoveto
  23. m show grestore gsave j m show grestore gsave r setfont m show grestore end    end}def end
  24. c o definefont}ifelse end}a/addheavy{userdict/BeachHead get begin dup/FontInfo known{dup/FontInfo get/FullName known
  25. {dup/FontInfo get/FullName get h pop FontDirectory c known{pop c findfont}{n/FontMatrix[1 0 0 1 0 0]def
  26. /BuildChar{exch begin m 0 3 -1 roll put l setfont m stringwidth exch .02 add exch setcharwidth
  27. 0 0 moveto m show .04 0 moveto m show end}def end c o definefont}ifelse}if}if end}a
  28. /addoblique{userdict/BeachHead get begin dup/FontInfo known{dup/FontInfo get/FullName known
  29. {dup/FontInfo get/FullName get g pop FontDirectory c known{pop c findfont}{n/FontMatrix[1 0 .17 1 0 0]def
  30. end c o definefont}ifelse}if}if end}a/adduline{userdict/BeachHead get begin dup/FontInfo known
  31. {dup/FontInfo get/FullName known{dup/FontInfo get/FullName get i pop FontDirectory c known
  32. {pop c findfont}{n/FontMatrix[1 0 0 1 0 0]def/BuildChar{exch begin m 0 3 -1 roll put
  33. l setfont m stringwidth setcharwidth 0 0 moveto m show .05 setlinewidth 0 setlinecap
  34. FontInfo/UnderlinePosition get 1000 div dup 0 exch moveto 0 exch m stringwidth 3 -1 roll add
  35. 3 1 roll add exch lineto stroke end}def end c o definefont}ifelse}if}if end}a
  36. /EPSBegin{save userdict/BeachHead get begin/la b count/ma b userdict/showpage{}put end
  37. 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath}a
  38. /EPSEnd{userdict/BeachHead get begin count ma sub dup 0 gt{{pop}repeat}{pop}ifelse la end restore}a
  39. /cimage{userdict/BeachHead get begin{{readstring}}{{readhexstring}}ifelse/u b/colorimage where
  40. {pop 4 index dup string/v b dup string/w b dup string/x b dup string/y b string/z b
  41. {currentfile v u pop}{currentfile w u pop}{currentfile x u pop}{currentfile y u pop
  42. currentfile z u pop pop}5 -1 roll{true 4 A}{true 4/colorimage load exec}ifelse}{4 index
  43. dup string/z b 4 mul string/B b{currentfile B u pop pop currentfile z u pop}
  44. exch{transimage}{/image load exec}ifelse}ifelse end}a/C{D{gsave E F 3 index idtransform translate
  45. G 1 4 index 4 index{H}/image load exec grestore/I 0 def/G 0 def/D false def}if}a
  46. /transimage{userdict/BeachHead get begin 2 index 8 ne{/image load exec}{4 index cvi string
  47. /H b/J 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 5 index 1 sub{/F b 0 1 6 index 1 sub
  48. {K J length ge{1 index dup type/stringtype ne{exec}if/J b/K 0 def}if J K get/K K 1 add def
  49. dup 255 eq{pop pop C}{H I 3 -1 roll put/I I 1 add def/G G 1 add def D not{/E b/G 1 def
  50. /D true def}{pop}ifelse}ifelse}for C}for 5{pop}repeat}ifelse end}a/L{D{gsave E F 8 index
  51. idtransform translate I 1 8 9 index{M}{N}{O}{P}true 4/colorimage load exec grestore/I 0 def
  52. /D false def}if}a/A{9 index cvi dup string/M b dup string/N b dup string/O b string/P b
  53. /Q 0 string def/K 0 def/D false def/I 0 def/G 0 def 0 1 10 index 1 sub{/F b 0 1 11 index 1 sub
  54. {K Q length ge{6 index exec/R b 5 index exec/S b 4 index exec/T b 3 index exec/Q b/K 0 def
  55. }if R K get S K get T K get Q K get/K K 1 add def dup 0 eq 2 index 0 eq and 3 index 0 eq and
  56. 4 index 0 eq and{5{pop}repeat L}{M I 6 -1 roll put N I 5 -1 roll put O I 4 -1 roll put
  57. P I 3 -1 roll put/I I 1 add def D not{/E b/D true def}{pop}ifelse}ifelse}for L}for 10{pop}repeat}a
  58. /bps 8 string def/bpm[8 0 0 8 0 0]def/bpp{bps}def
  59. /overlaybackpat{userdict/BeachHead get begin gsave setrgbcolor bps copy pop dup 0 get 8 div floor cvi
  60. 8 mul 1 index 2 get 8 div floor cvi 8 mul 2 index 1 get 8 div floor cvi 8 mul 8 4 index 3 get 8 div
  61. floor cvi 8 mul{2 index 8 3 index{1 index gsave translate 8 8 scale 8 8 false bpm/bpp load imagemask
  62. grestore}for pop}for pop pop pop grestore end}a
  63. /U{userdict/BeachHead get begin/V b/W b countdictstack save V 2 add 2 roll count V sub /X b
  64. /W load end{exec}stopped userdict/BeachHead get begin/Y b count X sub{pop}repeat Y 3 1 roll
  65. restore countdictstack exch sub{end}repeat end}a/Z( )def/aa{moveto{ba setfont Z end gsave
  66. 0 setgray stringwidth grestore userdict/BeachHead get begin rmoveto/ca load null ne{/da da
  67. 1 add def da ea length le{fa ea da get ca}if}{ax ay rmoveto fa ga eq{cx cy rmoveto}if}ifelse}stopped
  68. currentdict userdict/BeachHead get ne{userdict/BeachHead get begin}if}a
  69. /filltextpath{userdict/BeachHead get begin/ea b dup type dup/integertype eq exch/realtype eq or
  70. {/ay b/ax b/ga b/cy b/cx b/ca null def}{/ca b}ifelse/ha b/ia b ia{currentfont/_isSBShadowFont get
  71. {gsave 0 setgray/ca load null ne{/ca load ea kshow}{cx cy ga ax ay ea awidthshow}ifelse
  72. grestore}if}if gsave currentfont ia{begin r FontMatrix makefont l FontMatrix makefont end
  73. }{null exch}ifelse/ja b/ka b/ba currentfont def _doTexturePat{systemdict/makepattern known}
  74. {false}ifelse{matrix currentmatrix _strtxtmatrix null ne{_strtxtmatrix setmatrix}if 1 -1 scale
  75. txTrnsX txTrnsY translate settexturepat setmatrix/da 0 def ea{/fa b Z 0 fa put ja setfont currentpoint
  76. Z show aa{exit}if}forall}{10 setlinewidth/da 0 def currentpoint newpath 0 dup dup dup moveto lineto
  77. closepath moveto ea{/fa b Z 0 fa put currentpoint ja setfont count 1 add dup 1 roll Z true{charpath}stopped
  78. count count -1 roll sub{pop}repeat currentpoint{ha}0 U pop newpath 0 dup dup dup moveto
  79. lineto closepath moveto aa{exit}if}forall}ifelse grestore ka null ne{gsave 0 setgray/da
  80. 0 def ea{/fa b Z 0 fa put ka setfont currentpoint Z show aa{exit}if}forall grestore}if
  81. /_doTexturePat false def/_strtxtmatrix null def end}a end
  82.